Class Base
    Public a

    Private Sub Class_Initialize
        a = 1
    End Sub
End Class

Class Derived
    Private super

    Private Sub Class_Initialize
        Set super = New Base
    End Sub

    Public Property Get a
        a = super.a
    End Property

    Public Property Set a(aa)
        super.a = aa
    End Property
End Class

num = 0

For i = 0 To (1000000-1)
    Set obj = New Derived
    num = num + obj.a
Next

WScript.Echo num
